object Form1: TForm1
  Left = 343
  Top = 88
  Width = 870
  Height = 799
  Caption = #1052#1072#1083#1099#1081' '#1082#1088#1091#1075
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object JvLED1: TJvLED
    Left = 424
    Top = 312
  end
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 854
    Height = 26
    UseSystemFont = False
    ActionManager = actmgr1
    Caption = 'ActionMainMenuBar1'
    ColorMap.HighlightColor = clWhite
    ColorMap.BtnSelectedColor = clBtnFace
    ColorMap.UnusedColor = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Spacing = 0
  end
  object mmServer: TMemo
    Left = 169
    Top = 26
    Width = 344
    Height = 735
    Align = alLeft
    ScrollBars = ssVertical
    TabOrder = 1
    OnMouseDown = mmServerMouseDown
  end
  object mmDrop: TMemo
    Left = 513
    Top = 26
    Width = 341
    Height = 735
    Align = alClient
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
    OnMouseDown = mmDropMouseDown
  end
  object pnlServerName: TPanel
    Left = 0
    Top = 26
    Width = 169
    Height = 735
    Align = alLeft
    Caption = 'Change'
    TabOrder = 3
    object lbl1: TLabel
      Left = 112
      Top = 44
      Width = 45
      Height = 13
      Caption = '* 0.1 '#1089#1077#1082
    end
    object lbl2: TLabel
      Left = 8
      Top = 16
      Width = 68
      Height = 13
      Caption = #1042#1088#1077#1084#1103' '#1086#1087#1088#1086#1089#1072
    end
    object led27: TJvLED
      Left = 136
      Top = 288
      Interval = 0
    end
    object ledChange: TJvLED
      Left = 102
      Top = 560
      Active = True
      Interval = 0
      Status = False
      OnClick = ledChangeClick
    end
    object edtTimerDelay: TEdit
      Tag = 1
      Left = 40
      Top = 40
      Width = 49
      Height = 21
      BiDiMode = bdLeftToRight
      Enabled = False
      HideSelection = False
      ParentBiDiMode = False
      ReadOnly = True
      TabOrder = 0
      Text = '30'
      OnChange = edtTimerDelayChange
    end
    object ud1: TUpDown
      Left = 89
      Top = 40
      Width = 16
      Height = 21
      Associate = edtTimerDelay
      Min = 10
      Max = 30
      Position = 30
      TabOrder = 1
    end
    object chkTimerEnable: TCheckBox
      Left = 8
      Top = 42
      Width = 25
      Height = 17
      TabOrder = 2
      OnClick = chkTimerEnableClick
    end
    object btnServerPort: TiSwitchLed
      Left = 21
      Top = 80
      ActiveColor = clRed
      Caption = 'Server'
      CaptionFont.Charset = DEFAULT_CHARSET
      CaptionFont.Color = clWindowText
      CaptionFont.Height = -11
      CaptionFont.Name = 'Tahoma'
      CaptionFont.Style = []
      CaptionMargin = 2
      BorderSize = 2
      BorderHighlightColor = clBtnHighlight
      BorderShadowColor = clBtnShadow
      OnChangeUser = btnServerPortChangeUser
      TabOrder = 3
      Caption_2 = 'Server'
    end
    object btnDropPort: TiSwitchLed
      Left = 100
      Top = 80
      Caption = 'Drop'
      CaptionFont.Charset = DEFAULT_CHARSET
      CaptionFont.Color = clWindowText
      CaptionFont.Height = -11
      CaptionFont.Name = 'Tahoma'
      CaptionFont.Style = []
      CaptionMargin = 2
      BorderSize = 2
      BorderHighlightColor = clBtnHighlight
      BorderShadowColor = clBtnShadow
      OnChangeUser = btnDropPortChangeUser
      TabOrder = 4
      Caption_2 = 'Drop'
    end
    object cbServerBaud: TComboBox
      Left = 8
      Top = 152
      Width = 65
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 5
      Text = '4800'
      Items.Strings = (
        '4800'
        '9600'
        '19200')
    end
    object cbDropBaud: TComboBox
      Left = 88
      Top = 152
      Width = 65
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 6
      Text = '4800'
      Items.Strings = (
        '4800'
        '9600'
        '19200')
    end
    object cbServerPort: TComboBox
      Left = 8
      Top = 120
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 7
      OnChange = cbServerPortChange
      OnDropDown = cbServerPortDropDown
    end
    object cbDropPort: TComboBox
      Left = 88
      Top = 120
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 8
    end
    object ledDropRts: TiLedRectangle
      Left = 38
      Top = 248
      CenterLabelFont.Charset = DEFAULT_CHARSET
      CenterLabelFont.Color = clWindowText
      CenterLabelFont.Height = -11
      CenterLabelFont.Name = 'Tahoma'
      CenterLabelFont.Style = []
    end
    object ledDropCts: TiLedRound
      Left = 110
      Top = 248
    end
    object chkDropRtsCts: TCheckBox
      Left = 76
      Top = 249
      Width = 17
      Height = 17
      TabOrder = 11
    end
    object ledDropDtr: TiLedRectangle
      Left = 74
      Top = 212
      OnClick = ledDropDtrClick
      CenterLabelFont.Charset = DEFAULT_CHARSET
      CenterLabelFont.Color = clWindowText
      CenterLabelFont.Height = -11
      CenterLabelFont.Name = 'Tahoma'
      CenterLabelFont.Style = []
    end
    object chk27: TCheckBox
      Left = 8
      Top = 288
      Width = 49
      Height = 17
      Caption = '#27'
      TabOrder = 13
    end
    object edtCount27: TEdit
      Left = 64
      Top = 286
      Width = 41
      Height = 21
      ReadOnly = True
      TabOrder = 14
      Text = '1'
    end
    object ud2: TUpDown
      Left = 105
      Top = 286
      Width = 16
      Height = 21
      Associate = edtCount27
      Min = 1
      Max = 10
      Position = 1
      TabOrder = 15
    end
    object chkCompareServer: TCheckBox
      Left = 32
      Top = 184
      Width = 17
      Height = 17
      TabOrder = 16
    end
    object chkCompareDrop: TCheckBox
      Left = 111
      Top = 184
      Width = 17
      Height = 17
      TabOrder = 17
    end
    object iknbTimeDelay: TiKnob
      Left = 30
      Top = 312
      Width = 110
      Height = 110
      PositionMax = 40.000000000000000000
      OnPositionChange = iknbTimeDelayPositionChange
      PositionDisplayFont.Charset = DEFAULT_CHARSET
      PositionDisplayFont.Color = clWindowText
      PositionDisplayFont.Height = -11
      PositionDisplayFont.Name = 'Tahoma'
      PositionDisplayFont.Style = []
      KeyArrowStepSize = 0.100000000000000000
      KeyPageStepSize = 1.000000000000000000
      MouseWheelStepSize = 1.000000000000000000
      KnobRadius = 27
      TabOrder = 18
      TickLabelMargin = 3
      TickLabelFont.Charset = DEFAULT_CHARSET
      TickLabelFont.Color = clWindowText
      TickLabelFont.Height = -11
      TickLabelFont.Name = 'Tahoma'
      TickLabelFont.Style = []
      PositionMax_2 = 40.000000000000000000
      KeyArrowStepSize_2 = 0.100000000000000000
      KeyPageStepSize_2 = 1.000000000000000000
    end
    object edDelay: TiIntegerOutput
      Left = 64
      Top = 408
      Width = 41
      MaxLength = 0
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      TabOrder = 19
      Value = 0
      ValueMax = 0
      ValueMin = 0
      FormatStyle = iifsInteger
      LeadingZeros = False
      ErrorActive = False
      ErrorText = 'Error'
      ErrorFont.Charset = DEFAULT_CHARSET
      ErrorFont.Color = clRed
      ErrorFont.Height = -11
      ErrorFont.Name = 'Tahoma'
      ErrorFont.Style = [fsBold]
      ErrorBackGroundColor = clBlack
    end
    object iknbTimeChangeNumber: TiKnob
      Tag = 5
      Left = 32
      Top = 440
      Width = 110
      Height = 110
      Position = 5.000000000000000000
      PositionMax = 20.000000000000000000
      PositionMin = 5.000000000000000000
      CurrentMin = 5.000000000000000000
      OnPositionChange = iknbTimeChangeNumberPositionChange
      PositionDisplayFont.Charset = DEFAULT_CHARSET
      PositionDisplayFont.Color = clWindowText
      PositionDisplayFont.Height = -11
      PositionDisplayFont.Name = 'Tahoma'
      PositionDisplayFont.Style = []
      KeyArrowStepSize = 0.100000000000000000
      KeyPageStepSize = 1.000000000000000000
      MouseWheelStepSize = 1.000000000000000000
      KnobRadius = 27
      TabOrder = 20
      TickLabelMargin = 3
      TickLabelFont.Charset = DEFAULT_CHARSET
      TickLabelFont.Color = clWindowText
      TickLabelFont.Height = -11
      TickLabelFont.Name = 'Tahoma'
      TickLabelFont.Style = []
      PositionMax_2 = 20.000000000000000000
      KeyArrowStepSize_2 = 0.100000000000000000
      KeyPageStepSize_2 = 1.000000000000000000
    end
    object chkChange: TCheckBox
      Left = 24
      Top = 560
      Width = 65
      Height = 17
      Caption = 'Change'
      TabOrder = 21
    end
  end
  object ServerPort: TBComPort
    BaudRate = br4800
    ByteSize = bs8
    InBufSize = 2048
    OutBufSize = 2048
    Parity = paNone
    Port = 'COM6'
    SyncMethod = smThreadSync
    StopBits = sb1
    Timeouts.ReadInterval = 10
    Timeouts.ReadTotalMultiplier = 0
    Timeouts.ReadTotalConstant = 0
    Timeouts.WriteTotalMultiplier = 100
    Timeouts.WriteTotalConstant = 1000
    OnRxChar = ServerPortRxChar
    Left = 360
    Top = 584
  end
  object DropPort: TBComPort
    BaudRate = br9600
    ByteSize = bs8
    InBufSize = 2048
    OutBufSize = 2048
    Parity = paNone
    Port = 'COM3'
    SyncMethod = smThreadSync
    StopBits = sb1
    Timeouts.ReadInterval = 20
    Timeouts.ReadTotalMultiplier = 0
    Timeouts.ReadTotalConstant = 0
    Timeouts.WriteTotalMultiplier = 100
    Timeouts.WriteTotalConstant = 1000
    OnCTSChange = DropPortCTSChange
    OnRxChar = DropPortRxChar
    Left = 412
    Top = 584
  end
  object tmrDrop: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = tmrDropTimer
    Left = 400
    Top = 480
  end
  object actmgr1: TActionManager
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = actLogFile
              end
              item
                Caption = '-'
              end
              item
                Action = FileExit1
                ImageIndex = 43
              end>
            Caption = '&File'
          end
          item
            Items = <
              item
                Action = actServerPort
                Caption = '&Server port'
              end
              item
                Action = actDropPort
                Caption = '&Drop Port'
              end
              item
                Action = actTimerSet
                Caption = #1057#1074#1086#1081#1089#1090#1074#1072' '#1090#1072#1081#1084#1077#1088#1072
              end>
            Caption = '&Options'
          end>
        ActionBar = ActionMainMenuBar1
      end>
    Left = 296
    Top = 584
    StyleName = 'XP Style'
    object actLogFile: TAction
      Category = 'File'
      Caption = #1051#1086#1075' '#1092#1072#1081#1083
      OnExecute = actLogFileExecute
    end
    object FileExit1: TFileExit
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit|Quits the application'
      ImageIndex = 43
    end
    object actServerPort: TAction
      Category = 'Options'
      Caption = 'Server port'
    end
    object actDropPort: TAction
      Category = 'Options'
      Caption = 'Drop Port'
    end
    object actTimerSet: TAction
      Category = 'Options'
      Caption = 'Timer'
    end
    object actClearServerMemo: TAction
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100' '#1089#1077#1088#1074#1077#1088
      OnExecute = actClearServerMemoExecute
    end
    object actClearDrop: TAction
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100' '#1076#1088#1086#1087
      OnExecute = actClearDropExecute
    end
  end
  object pmServerMemoMenu: TPopupMenu
    Left = 288
    Top = 448
    object ClearServer: TMenuItem
      Action = actClearServerMemo
    end
  end
  object pmDropMemoMenu: TPopupMenu
    Left = 568
    Top = 504
    object ClearDrop: TMenuItem
      Action = actClearDrop
    end
    object N1: TMenuItem
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      OnClick = N1Click
    end
  end
  object dlgOpenLogFile: TOpenDialog
    Filter = 'txt|*.txt|log|*.log|*.*|*.*'
    Left = 568
    Top = 560
  end
end
